(delete-key-deletes-forward-mode): Treat `kp-delete'

like `delete'.

diff --git a/lisp/simple.el b/lisp/simple.el
index 092dfad5f1608a1e3b2939664f2d4ad5d3f8446e..9078e6aa21ede7751d0fc32d76571a5775c7dba5 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4067,8 +4067,10 @@ For more details, see `delete-key-deletes-forward'."
           (if delete-key-deletes-forward
               (progn
                 (define-key function-key-map [delete] [?\C-d])
+                (define-key function-key-map [kp-delete] [?\C-d])
                 (define-key function-key-map [backspace] [?\C-?]))
             (define-key function-key-map [delete] [?\C-?])
+            (define-key function-key-map [kp-delete] [?\C-?])
             (define-key function-key-map [backspace] [?\C-?]))
 
           (dolist (binding bindings)